f1='patient.dbf'
f2='dlv_drug.dbf'
f3='dlv_disp.dbf'
f5='in_pat.dbf'
f6='lab_test.dbf'
f7='pur_spec.dbf'
f8='lab_stor.dbf'
f11='non_invp.dbf'
f17='drug_ent.dbf'
f18='disp_ent.dbf'
f21='pur_temp.dbf'
f22='pur_drug.dbf'
f23='pur_disp.dbf'
f25='dlv_temp.dbf'
f26='dlv_phar.dbf'
f27='revenuey.dbf'
f28='act_ytd.dbf'
f29='act_proy.dbf'
f30='act_phay.dbf'
f31='doct_ytd.dbf'
f32='pati.dbf'
f33='ctrprn.dbf'

sele 1
SET EXCLU ON
use &dr1&f1
if fil_lock(0)
   copy to &dr2&f1
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f2
if fil_lock(0)
   copy to &dr2&f2
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f3
if fil_lock(0)
   copy to &dr2&f3
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f5
if fil_lock(0)
   copy to &dr2&f5
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f6
if fil_lock(0)
   copy to &dr2&f6
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f7
if fil_lock(0)
   copy to &dr2&f7
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f8
if fil_lock(0)
   copy to &dr2&f8
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f11
if fil_lock(0)
   copy to &dr2&f11
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f17
if fil_lock(0)
   copy to &dr2&f17
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f18
if fil_lock(0)
   copy to &dr2&f18
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f21
if fil_lock(0)
   copy to &dr2&f21
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f22
if fil_lock(0)
   copy to &dr2&f22
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f23
if fil_lock(0)
   copy to &dr2&f23
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f25
if fil_lock(0)
   copy to &dr2&f25
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f26
if fil_lock(0)
   copy to &dr2&f26
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f27
if fil_lock(0)
   copy to &dr2&f27
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f28
if fil_lock(0)
   copy to &dr2&f28
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f29
if fil_lock(0)
   copy to &dr2&f29
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f30
if fil_lock(0)
   copy to &dr2&f30
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f31
if fil_lock(0)
   copy to &dr2&f31
endif
unlock

sele 1
SET EXCLU ON
use &dr1&f32
if fil_lock(0)
   copy to &dr2&f32
endif
unlock
sele 1
SET EXCLU ON
use &dr1&f33
if fil_lock(0)
   copy to &dr2&f33
endif
unlock


return
